home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / BEAGLE.BAG.SHK / BEAGLE.BAG / SHORT MENU.bas < prev   
BASIC Source File  |  2000-01-01  |  3KB  |  27 lines
  1. 90  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>===================<CTRL-M>BEAGLE BAG<CTRL-M>SHORT MENU<CTRL-M>BY BERT KERSEY<CTRL-M><CTRL-M>COPYRIGHT (C) 1982<CTRL-M>BEAGLE BROS<CTRL-M>4315 SIERRA VISTA<CTRL-M>SAN DIEGO, CA 92103<CTRL-M>===================<CTRL-J><CTRL-J><CTRL-J> 
  2. 110  DIM GAME$(19): PRINT "<CTRL-D>NOMONICO": GOSUB 290: POKE 40286,35: POKE 40287,216:DD$ = "..": FOR I = 1 TO 38:DO$ = DO$ +".": NEXT : FOR G = 1 TO 16: READ GA$(G): IF  LEN(GA$(G))  THEN  NEXT 
  3. 120 G = G -1
  4. 130 ST = 0: TEXT : HOME : INVERSE : PRINT  SPC( 40): VTAB 20: PRINT  SPC( 40): FOR I = 2 TO 19: VTAB I: HTAB 1: PRINT " ";: HTAB 40: PRINT " ": NEXT : VTAB 1: HTAB 4: PRINT "BEAGLE BAG BY BEAGLE BROS": NORMAL : ONERR  GOTO 800
  5. 140  VTAB 22: HTAB 8: PRINT "<ARROW KEYS> SELECT GAME": HTAB 12: PRINT "<RETURN> RUN GAME": HTAB 15: PRINT "<ESC> QUIT";
  6. 150  FOR I = 2 TO 19: VTAB I: HTAB 2: PRINT DOT$: NEXT 
  7. 170  FOR I = 1 TO 18: VTAB I +2: HTAB I +5: PRINT GA$(I): NEXT :V =  PEEK(888): IF V <3  OR V >G +2  THEN V = 3
  8. 175  FOR I = 11 TO 15: VTAB I +2: HTAB I +1: PRINT "*": NEXT : VTAB 20: HTAB 19: INVERSE : PRINT "* 2-PLAYER GAMES": NORMAL : REM OPTIONAL
  9. 180  FLASH : IF ST  THEN  INVERSE 
  10. 185  VTAB V: HTAB V: PRINT "->";: HTAB V + LEN(GA$(V -2)) +4: PRINT "<-": NORMAL 
  11. 190 K =  PEEK( -16384): IF K <128  THEN 190
  12. 200  POKE  -16368,0:ST = 1: NORMAL : VTAB V: HTAB V:S =  PEEK( -16336): PRINT DD$;: HTAB V + LEN(GA$(V -2)) +4: PRINT DD$:S =  PEEK( -16336):V = V +(K = 149) -(K = 136):V = V +G *(V = 2) -G *(V = G +3): IF K < >141  AND K < >155  THEN 180
  13. 220 A$ = " <CTRL-C> TO EXIT GAME AND RE-RUN MENU.": IF K = 155  OR V = 18  THEN A$ = ""
  14. 240  CALL SC: CALL SC: CALL SC: VTAB 1: PRINT A$: FOR I = 1 TO 21: CALL SC: FOR J = 1 TO 19: NEXT : NEXT : IF K = 155  THEN  POKE 888,V: GOTO 800
  15. 250 A$ = GA$(V -2): IF  LEFT$(A$,1) = "("  THEN 270
  16. 260  INVERSE : VTAB 15: HTAB 14: PRINT  SPC( 12): PRINT : HTAB 14: PRINT " BEAGLE BAG ": HTAB 14: PRINT  SPC( 12): NORMAL : VTAB 20: HTAB 15 - LEN(A$)/2: FLASH : PRINT "+";: NORMAL : PRINT " LOADING "A$" ";: FLASH : PRINT "+": NORMAL : POKE 888,V: PRINT  CHR$(4);"RUN ";A$
  17. 270  VTAB 1: PRINT  CHR$(4);"CATALOG": FOR I = 1 TO 40: PRINT "-";: NEXT : PRINT "ANY KEY:                  <ESC> TO QUIT";: FLASH : HTAB 9: PRINT " ";: NORMAL 
  18. 275 K =  PEEK( -16384): IF K <128  THEN 275
  19. 276  POKE  -16368,0: IF K = 155  THEN  HTAB 1: CALL  -958: VTAB  PEEK(37): END 
  20. 277  GOTO 130
  21. 290 EN =  PEEK(175) +256 * PEEK(176):SC = EN -130:SU = EN -225: POKE 10,4: POKE 11,0
  22. 300  READ AD: IF   NOT AD  THEN  RETURN 
  23. 310  READ RA:RA = EN -RA:AD = EN -AD: POKE AD,RA - INT(RA/256) *256: POKE AD +1, INT(RA/256): GOTO 300
  24. 320  DATA 31,24,74,34,101,32,123,32,132,34,172,34,199,32,221,32,0
  25. 800  HOME : VTAB 23: END :<CTRL-J><CTRL-J><CTRL-J>
  26. 876  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>===================<CTRL-M>BEAGLE BAG<CTRL-M>SHORT MENU<CTRL-M>BY BERT KERSEY<CTRL-M><CTRL-M>COPYRIGHT (C) 1982<CTRL-M>BEAGLE BROS<CTRL-M>4315 SIERRA VISTA<CTRL-M>SAN DIEGO, CA 92103<CTRL-M>===================<CTRL-J><CTRL-J><CTRL-J> 
  27. 999  DATA TEXTTRAIN,SUB SEARCH,SLIPPERY DIGITS,NAME GAME,MAGIC PACK,HANG PERSON,GAS CRUNCH,ELEVATORS,DATE SEARCH,BUZZWORD,WOWZO,TRIPLE DIGITS,QUICK-DRAW!,PICK-A-PAIR,OINK!,(CATALOG DISK),: REM END.WITH.COMMA